﻿Imports System.Xml

Namespace Stories
	Public Class XmlComment
		Inherits Child

		Public Overrides Function ToString() As String
			Return Me.Self
		End Function

		Public Property Self As String

		Public Property Value As String

		Public Shared Function ReadXml(reader As XmlReader) As XmlComment
			Dim xc As New XmlComment()

			xc.Self = reader.GetAttribute("Self")
			xc.Value = reader.GetAttribute("Value")

			Return xc
		End Function
	End Class
End Namespace